﻿Public Class SoTietKiemCrt
    Dim _maSo As Integer
    Dim _maLoaiTietKiem As Integer
    Dim _tenKhachHang As String
    Dim _ngayMoSoTu As Date
    Dim _ngayMoSoDen As Date
    Dim _soDuTu As Double
    Dim _soDuDen As Double

    Dim _soDu As Double
    Dim _ngayMoSo As Date

    Dim _chkKhachHang As Boolean
    Dim _chkLoaiTietKiem As Boolean
    Dim _chkSoDu As Boolean
    Dim _chkNgayMoSo As Boolean

    Public Property MaSo() As Integer
        Get
            Return _maSo
        End Get
        Set(ByVal value As Integer)
            _maSo = value
        End Set
    End Property

    Public Property MaLoaiTietKiem() As Integer
        Get
            Return _maLoaiTietKiem
        End Get
        Set(ByVal value As Integer)
            _maLoaiTietKiem = value
        End Set
    End Property

    Public Property TenKhachHang() As String
        Get
            Return _tenKhachHang
        End Get
        Set(ByVal value As String)
            _tenKhachHang = value
        End Set
    End Property

    Public Property NgayMoSoTu() As DateTime
        Get
            Return _ngayMoSoTu
        End Get
        Set(ByVal value As DateTime)
            _ngayMoSoTu = value
        End Set
    End Property

    Public Property NgayMoSoDen() As DateTime
        Get
            Return _ngayMoSoDen
        End Get
        Set(ByVal value As DateTime)
            _ngayMoSoDen = value
        End Set
    End Property

    Public Property SoDuTu() As Double
        Get
            Return _soDuTu
        End Get
        Set(ByVal value As Double)
            _soDuTu = value
        End Set
    End Property

    Public Property SoDuDen() As Double
        Get
            Return _soDuDen
        End Get
        Set(ByVal value As Double)
            _soDuDen = value
        End Set
    End Property

    Public Property SoDu() As Double
        Get
            Return _soDu
        End Get
        Set(ByVal value As Double)
            _soDu = value
        End Set
    End Property

    Public Property NgayMoSo() As DateTime
        Get
            Return _ngayMoSo
        End Get
        Set(ByVal value As DateTime)
            _ngayMoSo = value
        End Set
    End Property

    Public Property ChkKhachHang() As Boolean
        Get
            Return _chkKhachHang
        End Get
        Set(ByVal value As Boolean)
            _chkKhachHang = value
        End Set
    End Property

    Public Property ChkLoaiTietKiem() As Boolean
        Get
            Return _chkLoaiTietKiem
        End Get
        Set(ByVal value As Boolean)
            _chkLoaiTietKiem = value
        End Set
    End Property

    Public Property ChkNgayMoSo() As Boolean
        Get
            Return _chkNgayMoSo
        End Get
        Set(ByVal value As Boolean)
            _chkNgayMoSo = value
        End Set
    End Property

    Public Property ChkSoDu() As Boolean
        Get
            Return _chkSoDu
        End Get
        Set(ByVal value As Boolean)
            _chkSoDu = value
        End Set
    End Property

    Public Sub New()
        MaSo = 0
        TenKhachHang = ""
        MaLoaiTietKiem = 0
        NgayMoSoTu = New Date(2000, 1, 1)
        NgayMoSoDen = New Date(2000, 1, 1)
        SoDuTu = 0.0
        SoDuDen = 0.0
        ChkKhachHang = False
        ChkLoaiTietKiem = False
        ChkNgayMoSo = False
        ChkSoDu = False
    End Sub
End Class

